$v1=(3/13)*log(3/13)/log(2);
$v2=3*(2/13)*log(2/13)/log(2);
$v3=(4/13)*log(4/13)/log(2);
print 0-($v1+$v2+$v3),"\n";
$v4=(4/13)*log(1/2)/log(2);
$v5=(4/13)*((2/4)*log(1/4)/log(2)+(2/4)*log(2/4)/log(2));
$v6=(5/13)*((4/5)*log(2/5)/log(2)+(1/5)*log(1/5)/log(2));
print 0-($v4+$v5+$v6),"\n";
print ((0-($v1+$v2+$v3))-(0-($v4+$v5+$v6))),"\n";
